home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / ClipTool / rexx / saveclip.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-09-27  |  414 b   |  18 lines
  1. /*
  2.  * saveclip - Save the contents of the clipboard to a file.
  3.  */
  4.  
  5. parse arg fname
  6. address cliptool
  7. 'getnumber var before'
  8. 'paste'
  9. 'getnumber var after'
  10. if before < after then do
  11.     'getcreateicons var state'
  12.     'createicons off' /* we don't want an icon */
  13.     'saveas name' fname 'dir' pragma('Directory')
  14.     'erase'
  15.     'createicons' state /* restore the previous state */
  16. end
  17. else say 'Clipboard is empty'
  18.